home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
co102.zip
/
BBSLIST.SOU
next >
Wrap
Text File
|
1990-08-17
|
8KB
|
272 lines
.( Step-by-step creation of a CROSSOVER script file
.( ------------------------------------------------
.(
.( Ok, you've read CO.DOC and STILL can't figure it out. Let's take a
.( door idea and create it from scratch. Here goes.
.(
.( Let's make a BBS information door. One that lets folks list the details
.( about their favorite BBS.
.(
.( First you will need a nice opening screen. Use TheDraw or some other
.( screen creation utility to make up something nice if your users are
.( primarily MS-DOS users, otherwise avoid characters above ASCII 128.
.(
+-------------------------------------------------------------------------+
| |
| <<< BBS DATA BASE >>> |
| |
| This door permits you to post or read posted information about other |
| bulletin boards. |
| |
+-------------------------------------------------------------------------+
.( Not much, I admit, but it will serve our purpose. Now, to give folks a
.( chance to read the title screen, you need to pause the display with a
.( space-bar command.
.SB
.( Next, a marker to define the main menu location...
.@T
.( Now for a main menu to let them choose what they want to do:
[ MAIN MENU ]
[A] Add a BBS to the listing
[R] Read the listings
[Q] Quit
Your selection:
.(
.( So much for the extensive menu full of options. Now to get their choice
.( you need a multiple-choice command.
.(
.[ARQ]
.( First, let's consider what happens if they decide to quit. The bashful
.( sysop will press the "Q" key to quit. The system will then branch forward
.( looking for a .@Q marker in the left margin. If we avoid using a .@Q from
.( this point forward, the system will drop through the end of the file,
.( never finding the marker, returning control to the BBS and closing the
.( door. So much for that choice. It's handled by simply ignoring it.
.(
.( The "R" choice will be handled a long way down the line...don't forget
.( it though...
.(
.( Now let's let them add their information. First we need a marker for
.( the system to find.
.(
.@A
.( Now that we've found the point to start entering information, we need
.( to decide what information we want them to be permitted to enter and
.( what format we want it in.
.(
.( How about something like this:
.(
.( ========================================================================
.( BBS NAME: Bubba's BBS and All-Night Livery
.( PHONE: (800)-555-1212 SYSOP: Bubba Schwartz
.( LOCATION: Mule Town, Ohio SYSTEM SIZE: 5 Megs.
.( SUPPORT FOR: Apple, C=64/Amiga, Timex-Sinclair, TI-99/4a, Adam
.( COMMENTS:
.( Downloads on first visit. Certified vet on call. Petting zoo door.
.( Supports every protocol from ASCII-7 to Zmodem. C'mon down, ya hear?
.( ========================================================================
.( [N]ext listing [Q]uit
.(
.( So, the first thing you need will be the divider bars:
.(
." ========================================================================
.( Finish the line with a carriage return...
.CR
.( Next comes the label for the first item of data...
." BBS NAME:_
.(
.( Now get the data input from the user. Let's limit them to 60 characters.
.(
.( First, display a prompt...
BBS name:
.(
.( Then get the data...
.$60
.(
.( Terminate it with a carriage return.
.CR
.( We need the phone number. Can't call unless we get that item!
.( First the label...
." PHONE:_
.(
.( Then the prompt...
Please enter the telephone number (include area code if not 614).
Phone:
.(
.( and get the data...
.(
.$20
.(
.( On the same line, we want the sysop's name...
.(
." SYSOP:_
Enter sysop's name if known:
.(
.( 35 characters should be enough...
.(
.$35
.(
.( And follow up with another carriage return.
.(
.CR
.(
.( Same stuff goes for the location...
.(
." LOCATION:_
Where is the BBS located? (City, State):
.$35
.( And the system size...
." SYSTEM SIZE:_
How large is your system storage?:
.$10
.( and another carriage return...
.CR
.( Now for a little bit of fancy stuff.
.( We want to let them tell what kind of computers it supports...
.( First the label...
." SUPPORT FOR:
.(
.( Now a prompt...
.(
Which of these computers do you support?
.( Before we list them, insert a marker...we'll see what it's for later.
.@B
.( Now show the option list...
[1] IBM & compatibles
[2] Apple IIe/c/GS
[3] Macintosh/Lisa
[4] Commodore/Amiga
[5] Other
.( and get their first choice...
Select:
.[12345]
.( now provide a place for each selection to be processed. Let's start
.( with the obvious #1.
.@1
.(Enter it into the file...
." IBM
.( and give the user some visual feedback...
IBM
.( then branch over the other selections...
.>C
.( Do the same for the other selections
.@2
." Apple II
Apple II
.>C
.@3
." Macintosh/Lisa
Mac/Lisa
.>C
.@4
." C=64/Amiga
C=64/Amiga
.>C
.@5
.( "other" means he needs to ENTER what it is...
Please specify:
.( Add a leading space...
."_
.$15
.( Last option, no need to branch to .@C because we're there already...
.@C
.( now let's give them the option to enter another brand if the BBS supports
.( more than one type of computer.
.?DDoes it support other makes?
.",
.<B
.( if not then the file branches to .@D, otherwise it drops thru and
.( a separating comma is added before the .<B command sends them back
.( to the computer type menu.
.@D
.( Now that we're out of the loop, terminate the line with a carriage
.( return
.CR
.( Now to let them add their own comments.
.( First a label...
." COMMENTS:
.CR
.( And then the chance to enter 2 lines of text.
.UT2
.( finish off the listing with another divider bar
." ========================================================================
.( and a carriage return...
.CR
.( Be polite and say thanks...
Thanks for entering your information!
Please note that your information will not be posted until you close
this door.
.( Now to add some menus to let the users scan through the listings.
.( listings.
.( First the prompt.
." [N]ext listing [Q]uit
.CR
.(
.( Then we have to add the command to get their input...
.".[NQ]
.CR
.( And the marker for the top of the next entry...
.".@N
.CR
.(
.( Now go back to the top menu...
.<T
.(
.( Finally, we need to add a .@R to handle the "R" selection way back
.( there at the first menu. This is the point at where the BBS entries
.( will be appended, so this is where they will want to start reading...
.@R
.(
.( That's about it...try it. --Alan Graff
========================================================================
BBS NAME: Cross Connect
PHONE: (614)776-7136 SYSOP: Alan Graff
LOCATION: Wheelersburg, OH SYSTEM SIZE: 20 Meg.
SUPPORT FOR: IBM, Apple II
COMMENTS:
Support board for Cross Connect Software. Also lots of QuickBBS and
Remote Access files. Some game doors. Sysop writes his own doors.
========================================================================
[N]ext listing [Q]uit
.[NQ]
.@N